home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
476-500
/
disk_499
/
diglib
/
diglib.lzh
/
source
/
gscwid.for
< prev
next >
Wrap
Text File
|
1991-04-13
|
565b
|
14 lines
REAL FUNCTION GSCWID()
C
C THIS FUNCTION RETURNS THE "WDITH" OF A CAPITAL LETTER
C IN THE CHARACTER STROKE TABLE. ALL CHARACTERS ARE STROKED
C FROM POINTS (COORDINATE PAIRS) STORED IN A STROKE TABLE.
C CAPITAL LETTERS ARE DEFINED ON A GRID SO THAT (0,0) IS AT THE
C LOWER LEFT CORNER OF THE CHARACTER CELL, AND (GSCWID(),GSCHIT())
C IS AT THE UPPER RIGHT BOUNDARY. NOTE, GSCWID() INCLUDES THE
C SPACE BETWEEN CHARACTERS, THAT IS, CHARACTERS ARE GSCWID() APART.
C
GSCWID = 9.0
RETURN
END